home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 13 / Developer Source Volume 13 (I-MODE Publications, Inc.)(1999).iso / ORINF / AUG96 / HOSKF113.GIF

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  17KB  |  794x574  |  4-bit (13 colors)

Labels: text | screenshot | display | software | number | web page | computer icon
OCR: ............. btnClose Properties .................. ........ D ... Click Sub ClickO IF work is pending, THEN Warn the user and do not close the form; otherwise, close the form - as requested. ' Test if udpRecMgrObject has been set IF IsNull ( Container. udpRecMgrObject ) then Container. udpRecMgrObject = Container. GetTopContainer ( ) Test if recMgrObject has RecordSource Use a variant IWP to represent IsWorkPending IF LEN ( Container. udpRecMgrObject. RecordSource ) = 0 THEN IWP = FALSE ELSE IWP = Container. udpRecMgrObject. GetRecordset ( ) . GetSession ( ) . IsWorkPending () END IF 1 - Check IF work has been committed IF IWP THEN IF IsNull ( Application. Label ) THEN MSGBOX "Work is Pending!" & CHR (13) & "You MUST Commit or Rollback your pending work. " ELSE MSGBOX ( "Work is Pending!" & CHR (13) & "You MUST Commit or Rollback your pending work. ", 0, Application. La END IF ELSE ' IF exists, open the window that called this form. Close this window IF NOT IsNull ( Container. udpNextWindow ) THEN Container. udpNextWindow. OpenWindow ( ) IF Container. udpExitApp THEN ' Use existing code to exit the application. Container. GetTopContainer ( ) . DoCommand ( cCmdStop ) ELSE ' Close the Window, but do not force the application to close. Container. GetTopContainer ( ) . CloseWindow ( ) END IF END IF

---